let h x =
  let y = f x in
  g y
;;
